dialog thesnitch {
  title "The Snitch"
  size -1 -1 277 163
  option dbu notheme
  link "Appears", 1, 3 0 20 8
  link "Up", 6, 39 0 7 8
  link "Down", 3, 39 9 14 8
  link "Left", 4, 39 18 10 8
  link "Right", 5, 39 27 13 8
  link "Disappears", 2, 3 9 27 8
  link "Forward", 7, 39 36 20 8
  link "Backward", 8, 39 45 23 8
  link "Around The Goal Posts", 9, 39 138 55 8
  link "Swirls", 10, 39 60 14 8
  link "Swirls Up", 11, 39 69 22 8
  link "Swirls Down", 12, 39 78 29 8
  link "Swirls Left", 13, 39 87 25 8
  link "Swirls Right", 14, 39 96 28 8
  link "Swirls Forwards", 15, 39 105 38 8
  link "Swirls Backwards", 16, 39 114 41 8
  link "Flies up and Around The Goal Posts ", 17, 39 129 86 8
  link "Around into the goal posts", 18, 39 147 64 8
  link "In the goal posts and around", 19, 39 156 70 8
  link "Drops", 20, 189 36 14 8
  link "Loop de Loop", 21, 135 18 32 8
  link "Hovers", 22, 87 18 17 8
  link "Dives", 23, 87 9 13 8
  link "Zigzag", 24, 87 27 16 8
  link "Rises", 25, 87 0 13 8
  link "U-Turns", 26, 87 60 19 8
  link "U-Turns Up", 27, 87 69 27 8
  link "U-Turns Down", 28, 87 78 34 8
  link "U-Turns Left", 29, 87 87 30 8
  link "U-Turns Right", 30, 87 96 33 8
  link "U-Turns Forwards", 31, 87 105 43 8
  link "U-Turns Backwards", 32, 87 114 46 8
  link "Swerves Left", 33, 135 0 32 8
  link "Swerves Right", 34, 135 9 35 8
  link "Drops Fast", 35, 189 45 26 8
  link "Skims The Grass", 37, 135 129 39 8
  link "Through The Goal Posts", 38, 135 138 57 8
  link "Over The Goal Post", 39, 135 147 47 8
  link "Loop", 40, 135 27 12 8
  link "Double Loops", 41, 135 36 32 8
  link "Corkscrews", 42, 135 60 28 8
  link "Corkscrews Up", 43, 135 69 36 8
  link "Corkscrews Down", 44, 135 78 43 8
  link "Corkscrews Left", 45, 135 87 39 8
  link "Corkscrews Right", 46, 135 96 42 8
  link "Corkscrews Forwards", 47, 135 105 52 8
  link "Corkscrews Backwards", 48, 135 114 55 8
  link "Spirals", 49, 192 60 16 8
  link "Spirals Up", 50, 192 69 24 8
  link "Spirals Down", 51, 192 78 31 8
  link "Spirals Left", 52, 192 87 27 8
  link "Spirals Right", 53, 192 96 30 8
  link "Spirals Forwards", 54, 192 105 40 8
  link "Spirals Backwards", 55, 192 114 43 8
  link "Spins Up", 56, 237 69 21 8
  link "Spins", 57, 237 60 13 8
  link "Spins Down", 58, 237 78 28 8
  link "Spins  Left", 59, 237 87 25 8
  link "Spins  Right", 60, 237 96 28 8
  link "Spins Forwards", 61, 237 105 37 8
  link "Spins Backwards", 62, 237 114 40 8
  link "Up Left", 63, 189 0 18 8
  link "Up Right", 64, 189 9 21 8
  link "Down Left", 65, 189 18 25 8
  link "Down Right", 66, 189 27 28 8
  link "Frontflip", 67, 234 0 20 8
  link "Backflip", 68, 234 27 18 8
  link "Double Frontflip", 69, 234 9 38 8
  link "Triple Frontflip", 70, 234 18 35 8
  link "Double Backflip", 71, 234 36 36 8
  link "Triple Backflip", 72, 234 45 33 8
  button "Exit", 73, 258 153 17 8, ok cancel
  edit "", 74, 225 141 50 10, autohs
  text "Channel:", 75, 225 133 25 8
  box "", 76, 222 125 55 38
  link "Random", 77, 3 18 20 8
  link "Wobbles", 36, 87 36 21 8
}

on *:STATRT { 
  set %_thesnitch #oql-field
}

on *:DIALOG:TheSnitch:init:0 {
  if (!%_thesnitch) { set %_thesnitch #oql-field } 

  if (%_thesnitch) { did -ra $dname 74 %_thesnitch }
}

on *:DIALOG:thesnitch:edit:74 {
  set %_thesnitch $replace($did($did).text,$null,_nchan_)
}

on *:DIALOG:thesnitch:sclick:* {
  if ($did == 77) { 
    if ($me ison %_thesnitch) { msg %_thesnitch 6 $+ :: $+ $lower($did($rand(3,72)).text) $+ :: }
    else { var %p = $input(You are not on %_thesnitch,owa) | if (%p) { return } } 
  }
  if ($did isnum 1-72) { 
    if ($me ison %_thesnitch) { msg %_thesnitch 6 $+ :: $+ $lower($did($did)) $+ :: }
    else { var %p = $input(You are not on %_thesnitch,owa) | if (%p) { return } } 
  }
}

on *:UNLOAD: { unset %_thesnitch }

alias thesnitch { if ($dialog(thesnitch)) { dialog -v thesnitch } | else { dialog -m thesnitch thesnitch } }